#!/usr/bin/perl

# change on name to another
# possible catastrophies result
#
# stumeikle 20061119

$label="import NeuroCoSA.";
$replacement="import org.stumeikle.NeuroCoSA.";
@files = `find . -name "*.java"`;
foreach $file(@files)
{
    chomp $file;
    $cmd= qq(cat $file | sed -e "s/$label/$replacement/g" > op);
    print "$cmd\n";
    system $cmd;
    `mv $file $file-bu`;

    $file=~s/$label/$replacement/g;
    system "mv op $file";
}
